home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / text / Shadow.rx < prev    next >
Encoding:
Text File  |  1999-12-10  |  1.2 KB  |  95 lines
  1. /*
  2.     Arexx Text Script
  3. */
  4.  
  5.     options results
  6.   parse ARG Port x y b
  7.  
  8.     SX=-2
  9.     SY=-2
  10.     F=5
  11.     ADDRESS COMMAND
  12.     if EXISTS('PerfectPaint:Prefs/Rexx_Prefs/Shadow') THEN DO
  13.         IF OPEN('lfile','PerfectPaint:Prefs/Rexx_Prefs/Shadow', "R") then DO
  14.             SX = READLN('lfile')
  15.             SY = READLN('lfile')            
  16.             F = READLN('lfile')    
  17.             CALL CLOSE('lfile')
  18.         END
  19.     END
  20.  
  21.     ADDRESS value Port
  22.     pp_AvoidRefresh
  23.  
  24.     pp_DialogInit 150 95 "*Shadow*" 3
  25.         pp_Integer 0 60 5 50 16 "Shift*X" 1 SX
  26.         pp_Integer 1 60 25 50 16 "Shift*Y" 1 SY
  27.         pp_Integer 2 60 45 50 16 "Flow" 1 F
  28.     pp_Dialog
  29.     rc=result
  30.     if rc=0 then
  31.         do
  32.             pp_PermitRefresh
  33.             EXIT
  34.         end    
  35.  
  36.     pp_UpdateUndo    
  37.         
  38.     pp_GetDialog 0
  39.     SX=result
  40.  
  41.     pp_GetDialog 1
  42.     SY=result
  43.  
  44.     pp_GetDialog 2
  45.     F=result
  46.     
  47.     CALL SavePrefs('Shadow',SX,SY,F)
  48.     ADDRESS value Port
  49.  
  50.     pp_GetApen
  51.     clr=result
  52.  
  53.     pp_ClosestColor 0 0 0
  54.     black=result
  55.  
  56.     pp_SetApen black
  57.  
  58.     pp_EffectOn
  59.     pp_Airbrush 90 F
  60.  
  61.     pp_TextDraw x+SX y+SY
  62.     pp_EffectOff
  63.  
  64.     pp_SetApen clr
  65.  
  66.     pp_TextDraw x y
  67.  
  68.     pp_PermitRefresh
  69.  
  70.  
  71. EXIT
  72.  
  73. SavePrefs: PROCEDURE
  74.     
  75.     Prefname='PerfectPaint:Prefs/Rexx_Prefs/'||ARG(1)
  76.  
  77.     if EXISTS(Prefname) THEN DO
  78.         ADDRESS COMMAND
  79.         'delete >nil: '||Prefname
  80.     END
  81.  
  82.     IF OPEN('pfile',PrefName,'W') THEN DO
  83.  
  84.     do i=2 to ARG()
  85.         CALL WRITELN('pfile',ARG(i))
  86.     end
  87.  
  88.     CALL CLOSE('pfile')
  89.  
  90. RETURN
  91.  
  92.     
  93.  
  94.     
  95.